Top 10k strings from Stars Spectrum - Utilidades - Issue 02 (1984)(Stars)(es).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
14 ;" STARS 14 INICIACION AL BASIC " 13 ;" -Pulsa ENTER para continuar- ": 12 hhhhhhhhhhhhhhhhhhh 8 PULSA UNA TECLA PARA CONTINUAR 6 CCCCCCCCCCC 6 ;"*** STARS ** STARS ***"; 6 ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 5 ;"********** VIDEO ***********" 3 ;"PON EN MARCHA EL CASSETTE" 3 ;"PARA EL CASSETTE" 3 ;"DESEAS VER LAS INSTRUCCIONES DE NUEVO ?": 3 ;"********** RAPID ***********" 3 ;"********** EDITOR **********" 3 00000000000000000000000000000000 3 ................... 3 .......... 3 '" EN LA LINEA 3 "(S/N)";A$: 2 EDITOR 2 CCCCCCCCCC 2 Z# 1 video 1 s#r#w#q#pO 1 hhhhhhhhhhhhhhhhh 1 editor 1 basic @ 1 VIDEO r 1 VECES EL NUMERO DE DIAS, UNA IM-PRESION POR MES." 1 STARS UTILIDADES N. 2 1 STARS 1 RAPID ~ 1 RAPID g 1 I,19;D 60 NEXT I " 1 ES EL PASO QUE MARCA EL INCRE- MENTO DE LA VARIABLE DEL 1 CM BRAPID 1 >B><>B<><B 1 >B><><<><B 1 ;"MENU:"'''"1/2/3/4 LOAD 1 ;"GRABAR IMAGEN S/N ?" 1 ;"DIRECCION ";N;"=";A(N): 1 ;"DEJA CORRER LA CINTA ": 1 ;"CONECTA EL CASSETTE.": 1 ;" PRESENTAMOS HOY LA SEGUNDA LECCION DE ESTE CURSILLO DE INI-CIACION AL BASIC, EN LA QUE VE- REMOS PRINCIPALMENTE EL DESARRO-LLO DEL PROGRAMA DEL MES PASADO." 1 ;" ESTUDIAREMOS TAMBIEN LAS INS-TRUCCIONES 1 64058,1310' Y SE EJECUTARA CON 'RANDOMIZE USR 64082'." 1 12 55 PRINT 1 11 40 PRINT AT N,15;B 45 NEXT N 50 FOR I=1 1 . EN CASO DE OMISION, EL VALOR DE 1 , Y SEGUIDO DE UN NUMERO CORRESPONDIENTE A LA COLUMNA EN DONDE SE REALIZARA LA IMPRESION." 1 , Y ASI SUCESIVAMENTE HASTA LLEGAR AL VALOR 1 , UN PROGRAMA QUE TE IMPRIMA EN PAN- TALLA LOS NOMBRES DE TUS MEJORESAMIGOS Y SUS NUMEROS DE TELEFO- NO." 1 , QUE SON LAS SEMANAS DEL ANYO. Y EN LA 1 , QUE NOS DARA UNA ME- DIA DE CUATRO SEMANAS Y MEDIA ALMES." 1 , PARA LA IMPRESION DE LAS SEMANAS DEL MES." 1 , LA SEGUNDAEN 1 , LA INSTRUC- CION 1 , LA INS-TRUCCION 1 , EN LA QUE 1 , EN EL PROGRAMAQUE NOS HA SERVIDO PARA INDICAR EL TIPO DE FUNCION DE LAS VARIA-BLES. ESTA, NO AFECTA PARA NADA LA EJECUCION DEL PROGRAMA, ES DECIR, EL ORDENADOR IGNORARA TO-DO LO QUE VENGA DESPUES DE ELLA." 1 , DEBEREMOS INTRODU- CIR 1 , CUYO RE- SULTADO EQUIVALDRA A LOS DIAS DECADA MES." 1 , JUNTO CON LO QUE SE DENOMINAN BUCLES (INSTRUCCIONES 1 , AUNQUE HAY OTRA MAS CORRECTA: 1 +"W\#"S\"K\6 1 'RAPID BASIC' SISTEMA OPERATIVO por STARS. Copyright 1985 1 '''''" LA TECLA 6 TE DEVOLVERA AL BASIC, NO SIN ANTES DARTE OPCIONA GRABAR LA PANTALLA FINAL." 1 ''''" SUBRUTINA 1: DIRECCIONES 1 Y 2 SUBRUTINA 2: DIRECCIONES 3 Y 4 SUBRUTINA 3: DIRECCIONES 5, 6 Y 7 SUBRUTINA 4: DIRECCIONES 8, 9 Y 10" 1 ''''" DIRECCION 5: Color de la tinta a cambiar. (POKE) DIRECCION 6: Nuevo color de tinta. (POKE) DIRECCION 7: RANDOMIZE USR para la tercera subru- tina. DIRECCION 8: Color del papel a cambiar. (POKE) DIRECCION 9: Nuevo color del papel. (POKE) DIRECCION 10: RANDOMIZE USR para la cuara subruti- na." 1 ''''" LO MISMO SUCEDERA CON LAS LI-NEAS 1 ''''" HEMOS INTRODUCIDO UNA NUEVA INSTRUCCION, 1 ''''" DESPUES PULSA:" 1 '''" VEMOS QUE EN LA LINEA 1 '''" VAMOS A DIVIDIR EL PROGRAMA EN VARIAS PARTES, Y COMENZAREMOSPOR LA IMPRESION EN PANTALLA DE LOS NOMBRES DE LOS MESES." 1 '''" NOTAD QUE PODRIAMOS HACERLOS IMPRIMIR DE LA MISMA MANERA QUE LO HEMOS HECHO CON LOS NOMBRES DE LOS MESES. PERO COMO ESTO NOSHA RESULTADO BASTANTE TEDIOSO VAMOS A VER UNA NUEVA FORMULA, LOS BUCLES." 1 '''" EL PROGRAMA IMPRIMIRA EN PAN-TALLA LA PALABRA 1 ''"TOMA NOTA DE ELLAS" 1 ''" DIRECCION 1: Hacer POKE con el color de tinta elegido. DIRECCION 2: RANDOMIZE USR para la primera subru- tina. DIRECCION 3: Hacer POKE con el color de papel elegido. DIRECCION 4: RANDOMIZE USR para la segunda subru- tina." 1 ''" DESEAS UN REPASO (S/N) ?" 1 ''" VEAMOS AHORA ALGO MAS SOBRE BUCLES. LA CONFIGURACION DE UN BUCLE ES LA SIGUIENTE: 1 ''" UNA VEZ ESTE EN MEMORIA EL NUMERO DE PANTALLAS DESEADO, PULSA S Y SE EJECUTARA EL PRO- GRAMA, PULSA EL NUMERO CORRES- PONDIENTE A LA PANTALLA QUE DE- SEES VER Y APARECERA EN IMAGEN." 1 ''" SOLO NOS RESTA YA IMPRIMIR LOS TOTALES:" 1 ''" PUES BIEN, OS PRESENTAMOS HOYUNA RUTINA EN CODIGO MAQUINA PREPARADA PARA TALES MOMENTOS." 1 ''" PASEMOS A VER AHORA OTRA DE LAS VARIANTES DEL 1 ''" PARA INTERRUMPIR LA EJECUCIONDE UN 1 ''" LOS DATOS QUE INTRODUZCAMOS SE ALMACENARAN EN LAS VARIABLES 1 ''" LO QUE INTENTAMOS CON ESTA UTILIDAD ES PRECISAMENTE ACELE- RAR DICHA EJECUCION SIN AFECTAR-LA PARA NADA." 1 ''" LA RUTINA SE CARGA EN LA DI- RECCION DE MEMORIA 60000. PUEDESHACER NEW UNA VEZ CARGADA." 1 ''" LA RUTINA CONSTA DE CUATRO SUBRUTINAS:" 1 ''" LA PRIMERA SE CARGARA PULSAN-DO EL 1, LA SEGUNDA EL 2, Y ASI SUCESIVAMENTE." 1 ''" LA INSTRUCCION 1 ''" LA APLICACION CONSTA DE UN PROGRAMA EN BASIC QUE PREPARA ALORDENADOR PARA LA POSTERIOR CARGA DE LA RUTINA EN CODIGO MA-QUINA." 1 ''" ESTOS DATOS PUEDEN SER NUME- RICOS O ALFANUMERICOS, Y SE VAN ALMACENANDO EN VARIABLES PARA SUPOSTERIOR USO." 1 ''" ES BIEN SABIDO QUE MIENTRAS MAS LARGOS SON LOS PROGRAMAS EN BASIC MAS LENTOS SON EN EJECU- CION." 1 ''" ENUNCIADO: CREA, MEDIANTE EL USO DE BUCLES Y DEL 1 ''" EN LA LINEA 1 ''" EL PROGRAMA OS PRESENTARA UNALISTA DE DIEZ DIRECCIONES DE ME-MORIA QUE TENDREIS QUE ANOTAR PARA SU POSTERIOR USO." 1 ''" EL CERO TE LIMPIARA LA PANTA-LLA." 1 ''" DICHA RUTINA SE CARGA RESER- VANDO PREVIAMENTE UNA ZONA DE LAMEMORIA CON LA INSTRUCCION 'CLEAR 64037'. SE ALMACENA CON 'LOAD"""" 1 ''" CUANTAS VECES NOS HABREMOS ENCONTRADO EN PROGRAMAS EN LOS QUE NOS INTERESARIA PODER CAMBI-AR EL COLOR DE LA TINTA O DEL PAPEL SIN PERDER EL TEXTO ACTUALDE LA PANTALLA." 1 ''" ACTO SEGUIDO PULSAS EL NUMERODE LA PANTALLA A SOBREIMPRIMIR Y VERAS LOS RESULTADOS." 1 ''" ACONSEJAMOS QUE LA RUTINA SOLO SE UTILICE A LA HORA DE EJECUTAR EL PROGRAMA EN BASIC, NUNCA CUANDO SE ESTE PROGRAMANDOO GRABANDO." 1 ''" 8: PONDRA LAS IMAGENES JUNTAS EN LA MANERA QUE ACTUA OVER EN BASIC. O BIEN 9: IMPRIMIRA LA SEGUNDA PANTALLA ENCIMA DE LA OTRA" 1 ''" HAZ OTRO PROGRAMA EN EL QUE VEAS REFLEJADOS LOS GASTOS DE UNA SEMANA, DIA POR DIA, Y EL TOTAL GASTADO. UTILIZA 1 '"POR EJEMPLO:"'" 1 '" SUBRUTINA 1: Cambia el color de la tinta. SUBRUTINA 2: Cambia el color del papel. SUBRUTINA 3: Busca el color de tinta indicado y lo cambia por el elegido. (Solo en el caso de que haya mas de un color de tinta en pantalla). SUBRUTINA 4: Lo mismo para el papel." 1 '" NADA MAS RESTA RECORDAROS QUE AL FINAL DE LA LECCION DAREMOS EL ENUNCIADO DE OTRO PROGRAMA A DESARROLLAR." 1 '" VAMOS A POR LA ULTIMA PARTE DEL PROGRAMA EN LA QUE TENEMOS QUE VER LA IMPRESION DE LOS DIASY SEMANAS Y SUS TOTALES." 1 '" POR LO DEMAS ESTA PRIMERA PARTE NO NECESITA DE MAS EXPLI- CACIONES. PASEMOS A VER AHORA ELCALCULO DE LOS DIAS Y SEMANAS." 1 '" IMPRIMIRA LOS NUMEROS DEL 1 AL 100 EN ORDEN INVERSO." 1 '" FIJAROS EN PRIMER LUGAR QUE HEMOS PUESTO MAS DE UNA INSTRUC-CION EN CADA LINEA DE PROGRAMA, ESTO ES ACEPTADO POR EL ORDENA- DOR SI LAS SEPARAMOS CON LOS DOSPUNTOS." 1 '" ESTE PROGRAMA TE PERMITIRA CARGAR EN LA MEMORIA DE TU SPEC-TRUM HASTA UN MAXIMO DE CUATRO PANTALLAS PARA SU SUPERPOSICION O SOBREIMPRESION." 1 '" EN LA QUE SE IMPRIMIRA 1 '" EN LA 1 '" EL VALOR DE 1 '" EL TEXTO ENTRE COMILLAS SE IMPRIMIRA DE LA MISMA MANERA EN LA QUE LO HARIA UN 1 '" CON LO QUE HABRA IMPRIMIDO 1 ##~#^#V*h\ 1 #"a\"c\"e\>82 1 "NOMBRE ?";N$: 1 "''"S EDITAR IMAGEN"''"Q STOP" 1 Y UN ACUMULADOR DE SUBTO- TALES (VARIABLE NUMERICA)." 1 Y POR DEBAJO DE LA ULTIMA IMPRESION ENPANTALLA." 1 VA SIEMPRE PRECEDIDO POR 1 SE LE DA VALOR 1 SE LE DA EL VALOR 1 SE IMPRIMIRA EL TEXTO ENTRE COMILLAS ADEMAS DE LOS VALORES DE LAS CITADAS VARIABLES." 1 SALTANDO UNA LINEA EN CADA IMPRESION. DE-BIDO A QUE EL INCREMENTO DE 1 QUE EQUIVALE A LOS DIAS DEL ANYO." 1 PUEDE SER UNNUMERO NEGATIVO." 1 PRINT TAB 10;""STARS"" " 1 PERMITE LA INTRODUCCION DE DATOS EN EL ORDENADOR DESDE EL TECLADO." 1 LE DA UN VALOR FINAL. 1 INI-CIALIZAMOS LA VARIABLE 1 INCREMENTA EL VALOR DE 1 IMPRIMIRA EL RESULTADO DE LA VARIABLE 1 EN UNO Y VUELVE A MANDAR LA EJECUCION A LA LINEA 1 DONDEINDIQUEN LAS COORDENADAS, LA PRIMERA SERA EN 1 DAMOS EL VALOR 1 DA UN VALOR INICIAL A LA VARIABLE 1 CON EL VALOR NUMERICO 1 A PARTIR DE LA COLUMNA 1 A LA VARIABLE 1 65 PRINT AT 16,0;""TOTAL DIAS "";A: PRINT AT 18,0;""TOTAL SEMANAS "";C " 1 35 FOR N=0 1 15 LET A=360: REM DIAS DEL ANYO 20 LET B=A/12: REM DIAS DEL MES 25 LET C=54: REM SEMANAS DEL ANYO 30 LET D=C/12: REM SEMANAS DEL MES " 1 10 PRINT ""JULIO........"": PRINT ""AGOSTO......."": PRINT ""SEPTIEMBRE..."": PRINT ""OCTUBRE......"": PRINT ""NOVIEMBRE...."": PRINT ""DICIEMBRE...."" " 1 10 INPUT ""DIME TU NOMBRE"";A$ 20 INPUT ""DIME TU EDAD"";A 30 PRINT ""TIENES "";A;"" ANYOS, Y TE LLAMAS "";A$ " 1 10 FOR N=0 TO 21 STEP 2 15 PRINT AT N,0;""STARS"" 20 NEXT N 1 10 FOR I=100 TO 1: STEP -1: PRINT I: NEXT I " 1 5 PRINT ""ENERO........"": PRINT ""FEBRERO......"": PRINT ""MARZO........"": PRINT ""ABRIL........"": PRINT ""MAYO........."": PRINT ""JUNIO........"" " 1 1